Imports Colegio
Imports System.Windows.Forms

Public Class FrmCargarPeriododeLicencia

    Private Sub FrmCargarPeriododeLicencia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MtbFechaAlta.ReadOnly = True
        MtbFechaBaja.ReadOnly = True
        Me.MtbFechaAlta.ValidatingType = GetType(DateTime)
        Me.MtbFechaBaja.ValidatingType = GetType(DateTime)
        CkbActivo.Checked = True
        CkbActivo.Enabled = False
    End Sub

    Private Sub BtnBuscarDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarDoc.Click
        abrirFormulario(FrmBuscarPersonal)
        operacion = 2
        Me.Close()
    End Sub

    Private Sub limpiar()
        TxtCodigo.Text = ""
        TxtApellido.Text = ""
        TxtNombres.Text = ""
        TxtTitulo.Text = ""
        TxtCapitulo.Text = ""
        TxtArticulo.Text = ""
        TxtLicencia.Text = ""
        MtbFechaAlta.ReadOnly = True
        MtbFechaBaja.ReadOnly = True
        MtbFechaAlta.Text = ""
        MtbFechaBaja.Text = ""
        PBuscarDoc.Visible = True
        PBuscarLic.Visible = True
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub

    Private Sub BtnBuscarLic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarLic.Click
        Dim Frm As New FrmBuscarLicencia
        abrirFormulario(Frm)
        operacion = 2
    End Sub

    Private Sub DtpFechaAlta_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DtpFechaAlta.CloseUp
        MtbFechaAlta.Text = DtpFechaAlta.Value.Date
    End Sub


    Private Sub DtpFechaBaja_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DtpFechaBaja.CloseUp
        MtbFechaBaja.Text = DtpFechaBaja.Value.Date
    End Sub

    Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click

        Dim periodo As New Entidades.EPeriododeLicencia
        Dim periodoneg As New Negocios.NPeriododeLicencia

        Dim band As Boolean
        If TxtCodigo.Text = "" Then
            MsgBox("Lo siento es imposible cargar si falta los datos de docentes y licencias ", MsgBoxStyle.Exclamation)
            Exit Sub

        End If
        If TxtTitulo.Text = "" Then
            MsgBox("Lo siento es imposible cargar si falta los datos de docentes y licencias ", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If TxtTitulo.Text = "" Then
            MsgBox("Lo siento es imposible cargar si falta los datos de docentes y licencias ", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If TxtCapitulo.Text = "" Then
            MsgBox("Lo siento es imposible cargar si falta los datos de docentes y licencias ", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If TxtArticulo.Text = "" Then
            MsgBox("Lo siento es imposible cargar si falta los datos de docentes y licencias ", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If Not IsDate(MtbFechaAlta.Text) Then
            MsgBox("Debe colocar una fecha valida o seleccionar una", MsgBoxStyle.Exclamation)
            MtbFechaAlta.Focus()
            Exit Sub
        End If
        If Not IsDate(MtbFechaBaja.Text) Then
            MsgBox("Debe colocar una fecha valida o seleccionar una", MsgBoxStyle.Exclamation)
            MtbFechaBaja.Focus()
            Exit Sub
        End If

        periodo.Legajo = TxtCodigo.Text
        periodo.Titulo = TxtTitulo.Text
        periodo.Capitulo = TxtCapitulo.Text
        periodo.Articulo = TxtArticulo.Text
        periodo.FechaAlta = MtbFechaAlta.Text
        periodo.FechaBaja = MtbFechaBaja.Text
        periodo.Estado = chequeamos(CkbActivo)
        Try
            band = periodoneg.cargarPeriodoDeLicencia(periodo)
            If band Then
                MsgBox("Carga Exitosa", MsgBoxStyle.Exclamation)
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        
        limpiar()
    End Sub
End Class